inherited fLancamentos: TfLancamentos
  Left = 267
  Top = 102
  Caption = 'Lan'#231'amentos'
  ClientHeight = 484
  ClientWidth = 753
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 8
    Top = 47
    Width = 51
    Height = 13
    Caption = 'Descri'#231#227'o '
  end
  object Label2: TLabel [1]
    Left = 679
    Top = 47
    Width = 54
    Height = 13
    Caption = 'R$ Receita'
  end
  object Label3: TLabel [2]
    Left = 614
    Top = 47
    Width = 59
    Height = 13
    Caption = 'R$ Despesa'
  end
  object Label4: TLabel [3]
    Left = 322
    Top = 47
    Width = 62
    Height = 13
    Caption = 'Rec. / Desp.'
  end
  object Label5: TLabel [4]
    Left = 407
    Top = 47
    Width = 42
    Height = 13
    Caption = 'Detalhes'
  end
  object Label6: TLabel [5]
    Left = 282
    Top = 47
    Width = 25
    Height = 13
    Caption = 'Parc.'
  end
  object R_A_INTEGRAL: TSpeedButton [6]
    Left = 299
    Top = 384
    Width = 153
    Height = 25
    Caption = 'Receber aluguel integral'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = R_A_INTEGRALClick
  end
  inherited StsBr: TStatusBar
    Top = 465
    Width = 753
  end
  inherited Panel2: TPanel
    Top = 416
    Width = 753
    Height = 49
    TabOrder = 5
    inherited btnSair: TBitBtn
      Left = 532
      Top = 6
      Width = 100
      Height = 38
    end
    inherited btnCancelar: TBitBtn
      Left = 223
      Top = 6
      Width = 100
      Height = 38
    end
    inherited btnexcluir: TBitBtn
      Left = 223
      Top = 6
      Width = 100
      Height = 38
    end
    inherited btngravar: TBitBtn
      Left = 120
      Top = 6
      Width = 100
      Height = 38
    end
    inherited btnIncluir: TBitBtn
      Left = 120
      Top = 6
      Width = 100
      Height = 38
    end
    inherited btnProcurar: TBitBtn
      Left = 6
      Top = -100
      Width = 100
      Visible = False
    end
    object BitBtn5: TBitBtn
      Left = 429
      Top = 6
      Width = 100
      Height = 38
      Caption = '&Receber'
      TabOrder = 6
      OnClick = BitBtn5Click
      Glyph.Data = {
        36080000424D3608000000000000360400002800000020000000200000000100
        0800000000000004000000000000000000000001000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00090909001212
        12001F1F1F002C2C2C003939390045454500525252005F5F5F006C6C6C007878
        780085858500929292009F9F9F00ABABAB00B8B8B800C5C5C500D2D2D200DEDE
        DE00EBEBEB00F8F8F800F0FBFF00A4A0A000C0DCC000F0CAA60000003E000000
        5D0000007C0000009B000000BA000000D9000000F0002424FF004848FF006C6C
        FF009090FF00B4B4FF0000143E00001E5D0000287C0000329B00003CBA000046
        D9000055F000246DFF004885FF006C9DFF0090B5FF00B4CDFF00002A3E00003F
        5D0000547C0000699B00007EBA000093D90000AAF00024B6FF0048C2FF006CCE
        FF0090DAFF00B4E6FF00003E3E00005D5D00007C7C00009B9B0000BABA0000D9
        D90000F0F00024FFFF0048FFFF006CFFFF0090FFFF00B4FFFF00003E2A00005D
        3F00007C5400009B690000BA7E0000D9930000F0AA0024FFB60048FFC2006CFF
        CE0090FFDA00B4FFE600003E1400005D1E00007C2800009B320000BA3C0000D9
        460000F0550024FF6D0048FF85006CFF9D0090FFB500B4FFCD00003E0000005D
        0000007C0000009B000000BA000000D9000000F0000024FF240048FF48006CFF
        6C0090FF9000B4FFB400143E00001E5D0000287C0000329B00003CBA000046D9
        000055F000006DFF240085FF48009DFF6C00B5FF9000CDFFB4002A3E00003F5D
        0000547C0000699B00007EBA000093D90000AAF00000B6FF2400C2FF4800CEFF
        6C00DAFF9000E6FFB4003E3E00005D5D00007C7C00009B9B0000BABA0000D9D9
        0000F0F00000FFFF2400FFFF4800FFFF6C00FFFF9000FFFFB4003E2A00005D3F
        00007C5400009B690000BA7E0000D9930000F0AA0000FFB62400FFC24800FFCE
        6C00FFDA9000FFE6B4003E1400005D1E00007C2800009B320000BA3C0000D946
        0000F0550000FF6D2400FF854800FF9D6C00FFB59000FFCDB4003E0000005D00
        00007C0000009B000000BA000000D9000000F0000000FF242400FF484800FF6C
        6C00FF909000FFB4B4003E0014005D001E007C0028009B003200BA003C00D900
        4600F0005500FF246D00FF488500FF6C9D00FF90B500FFB4CD003E002A005D00
        3F007C0054009B006900BA007E00D9009300F000AA00FF24B600FF48C200FF6C
        CE00FF90DA00FFB4E6003E003E005D005D007C007C009B009B00BA00BA00D900
        D900F000F000FF24FF00FF48FF00FF6CFF00FF90FF00FFB4FF002A003E003F00
        5D0054007C0069009B007E00BA009300D900AA00F000B624FF00C248FF00CE6C
        FF00DA90FF00E6B4FF0014003E001E005D0028007C0032009B003C00BA004600
        D9005500F0006D24FF008548FF009D6CFF00B590FF00CDB4FF001F1F1F1F1F1F
        1F1F1F1F1F1F1F1F003D3D3D001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F003D3D3D001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F003D3D3D001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F003D3D3D3D001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F003D3D3D3D3D001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F003D3D3D3D3D3D001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F003D3D3D3D3D3D3D001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F00003D3D3D3D3D3D3D001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F005C5C003D3D0000003D001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F005C8D8D003D3D008D8D00001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F005C8D8D8D8D003D008D8D5C001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F005C8D8D8D8D8D003D008D8D8D5C001F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F005C8D8D8D8D8D8D0000008D8D8D8D5C001F1F1F1F1F1F1F1F1F1F1F1F1F
        1F005C8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D5C001F1F1F1F1F1F1F1F1F1F1F1F
        005C8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D5C001F1F1F1F1F1F1F1F1F1F1F1F00
        5C8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D001F1F1F1F1F1F1F1F1F1F1F1F005C
        8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D5C001F1F1F1F1F1F1F1F1F1F1F1F005C8D
        8D8D8D8D8D8D8D8D8D8D8D8D8D8D5C001F1F1F1F1F1F1F1F1F1F1F1F1F1F005C
        8D8D8D8D8D8D8D8D8D8D8D8D8D5C001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F00
        5C8D8D8D8D8D8D8D8D8D8D8D5C001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        005C8D8D8D8D8D8D8D8D8D5C001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F005C8D8D8D8D8D8D8D5C001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F005C8D8D8D8D8D5C001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F005C8D8D8D5C001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F005C8D5C001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F005C001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
        1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F}
    end
    object BitBtn1: TBitBtn
      Left = 326
      Top = 6
      Width = 100
      Height = 38
      Caption = 'Despesas Fixas'
      TabOrder = 7
      OnClick = BitBtn1Click
    end
  end
  inherited Panel3: TPanel
    Width = 753
    TabOrder = 6
    inherited DBTextDestaque1: TDBText
      DataField = 'NOME_INQUILINO'
      DataSource = DataSource2
    end
    inherited DBTextDestaque: TDBText
      DataField = 'NOME_INQUILINO'
      DataSource = DataSource2
    end
  end
  object DBEdit1: TDBEdit [10]
    Left = 680
    Top = 63
    Width = 64
    Height = 24
    DataField = 'VALOR_TOTAL'
    DataSource = DtSrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnExit = DBEdit1Exit
    OnKeyPress = FormKeyPress
  end
  object DBEdit2: TDBEdit [11]
    Left = 615
    Top = 63
    Width = 64
    Height = 24
    DataField = 'VALOR'
    DataSource = DtSrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnExit = DBEdit2Exit
    OnKeyPress = FormKeyPress
  end
  object DBGrid1: TDBGrid [12]
    Left = 5
    Top = 88
    Width = 740
    Height = 289
    TabStop = False
    DataSource = DtSrc
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 7
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawColumnCell = DBGrid1DrawColumnCell
    Columns = <
      item
        Expanded = False
        FieldName = 'DESCRICAO_1'
        Title.Caption = 'Descri'#231#227'o'
        Width = 250
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PARCELA'
        Title.Caption = 'Parcela'
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RECEITA_DESPESA'
        Title.Caption = 'Rec./Desp.'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DESCRICAO'
        Title.Caption = 'Detalhes'
        Width = 190
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALOR'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Caption = 'R$ Despesa'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALOR_TOTAL'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Caption = 'R$ Receita'
        Visible = True
      end>
  end
  object DBEdit3: TDBEdit [13]
    Left = 320
    Top = 63
    Width = 88
    Height = 24
    TabStop = False
    Color = clInfoBk
    DataField = 'RECEITA_DESPESA'
    DataSource = DtSrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
  end
  object DBEdit4: TDBEdit [14]
    Left = 681
    Top = 377
    Width = 64
    Height = 24
    TabStop = False
    BiDiMode = bdRightToLeft
    DataField = 'Total_rec'
    DataSource = DtSrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 9
  end
  object DBEdit6: TDBEdit [15]
    Left = 616
    Top = 377
    Width = 64
    Height = 24
    TabStop = False
    BiDiMode = bdRightToLeft
    DataField = 'Total'
    DataSource = DtSrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 10
  end
  object DBEdit5: TDBEdit [16]
    Left = 408
    Top = 63
    Width = 206
    Height = 24
    DataField = 'DESCRICAO'
    DataSource = DtSrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnExit = DBEdit5Exit
    OnKeyPress = FormKeyPress
  end
  object DBEdit7: TDBEdit [17]
    Left = 280
    Top = 63
    Width = 38
    Height = 24
    TabStop = False
    Color = clInfoBk
    DataField = 'PARCELA'
    DataSource = DtSrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
  end
  object ComboBox1: TComboBox [18]
    Left = 6
    Top = 64
    Width = 272
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 0
    OnClick = ComboBox1Click
    OnExit = ComboBox1Exit
    OnKeyPress = FormKeyPress
  end
  inherited DtSrc: TDataSource
    DataSet = DM.cds_lancamentos
    Left = 473
  end
  object DataSource1: TDataSource
    DataSet = DM.cds_p_conta
    Left = 464
    Top = 224
  end
  object DataSource2: TDataSource
    DataSet = fFiltra_Aluguel_Rec.scdsCp_proc
    Left = 504
    Top = 8
  end
  object dst_d_fixa: TSQLDataSet
    CommandText = 
      'select lan.*, pla.DESCRICAO, pla.GRUPO  '#13#10'from LANCAMENTOS_FIXOS' +
      ' lan '#13#10'left outer join PLANO_CONTAS pla on '#13#10'pla.COD_CONTAS=lan.' +
      'COD_CONTAS '#13#10'where COD_IMALU=:pcod'
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    Left = 196
    Top = 229
    object dst_d_fixaCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_d_fixaCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaQUTDE_MESES: TIntegerField
      FieldName = 'QUTDE_MESES'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaVALOR_MES: TFloatField
      FieldName = 'VALOR_MES'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaVALOR_PAGO: TFloatField
      FieldName = 'VALOR_PAGO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaVALOR_DIFERENCA: TFloatField
      FieldName = 'VALOR_DIFERENCA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = []
      Size = 60
    end
    object dst_d_fixaPARCELAS_REC: TIntegerField
      FieldName = 'PARCELAS_REC'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = []
    end
  end
  object dsp_d_fixa: TDataSetProvider
    DataSet = dst_d_fixa
    UpdateMode = upWhereKeyOnly
    Left = 228
    Top = 229
  end
  object cds_d_fixa: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_d_fixa'
    Left = 260
    Top = 229
    object cds_d_fixaCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_d_fixaCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object cds_d_fixaCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object cds_d_fixaQUTDE_MESES: TIntegerField
      FieldName = 'QUTDE_MESES'
      ProviderFlags = [pfInUpdate]
    end
    object cds_d_fixaVALOR_MES: TFloatField
      FieldName = 'VALOR_MES'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_d_fixaVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_d_fixaVALOR_PAGO: TFloatField
      FieldName = 'VALOR_PAGO'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_d_fixaVALOR_DIFERENCA: TFloatField
      FieldName = 'VALOR_DIFERENCA'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_d_fixaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = []
      Size = 60
    end
    object cds_d_fixaPARCELAS_REC: TIntegerField
      FieldName = 'PARCELAS_REC'
      ProviderFlags = [pfInUpdate]
    end
    object cds_d_fixaGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = []
    end
  end
  object SQLDataSet1: TSQLDataSet
    CommandText = 
      'select * from LANCAMENTOS '#13#10'where COD_IMALU= :pcod and cod_conta' +
      's= :pcontas'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pcontas'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 248
    Top = 184
    object SQLDataSet1COD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object SQLDataSet1COD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1COD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1COD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1QUTDE: TIntegerField
      FieldName = 'QUTDE'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1VALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1VALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1DESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object SQLDataSet1PARCELA: TIntegerField
      FieldName = 'PARCELA'
    end
  end
  object cds_lanc: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pcontas'
        ParamType = ptInput
      end>
    ProviderName = 'DataSetProvider1'
    Left = 312
    Top = 184
    object cds_lancCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
    end
    object cds_lancCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
    end
    object cds_lancCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object cds_lancCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
    end
    object cds_lancQUTDE: TIntegerField
      FieldName = 'QUTDE'
    end
    object cds_lancVALOR: TFloatField
      FieldName = 'VALOR'
    end
    object cds_lancVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
    end
    object cds_lancDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object cds_lancPARCELA: TIntegerField
      FieldName = 'PARCELA'
    end
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SQLDataSet1
    Left = 280
    Top = 184
  end
  object c_6_genid: TSQLDataSet
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.scSge
    Left = 187
    Top = 269
  end
  object DataSource3: TDataSource
    DataSet = cds_Aluguel
    OnStateChange = DtSrcStateChange
    Left = 497
    Top = 304
  end
  object cds_Aluguel: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_Aluguel'
    Left = 448
    Top = 304
    object cds_AluguelCOD_H_IMALU: TIntegerField
      FieldName = 'COD_H_IMALU'
    end
    object cds_AluguelCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object cds_AluguelPARCELA: TStringField
      FieldName = 'PARCELA'
      Size = 10
    end
    object cds_AluguelVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
    end
    object cds_AluguelSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 10
    end
    object cds_AluguelTOTAL_ALUGUEL: TFloatField
      FieldName = 'TOTAL_ALUGUEL'
      DisplayFormat = ',#0.00'
    end
    object cds_AluguelTOTAL_RECEBIDO: TFloatField
      FieldName = 'TOTAL_RECEBIDO'
      DisplayFormat = ',#0.00'
    end
    object cds_AluguelREC_INQUILINO: TStringField
      FieldName = 'REC_INQUILINO'
      Size = 3
    end
    object cds_AluguelDATA_REC: TDateField
      FieldName = 'DATA_REC'
    end
    object cds_AluguelREP_PROPRIETARIO: TStringField
      FieldName = 'REP_PROPRIETARIO'
      Size = 3
    end
    object cds_AluguelDATA_REP: TDateField
      FieldName = 'DATA_REP'
    end
    object cds_AluguelTOTAL_REPASSE: TFloatField
      FieldName = 'TOTAL_REPASSE'
      DisplayFormat = ',#0.00'
    end
    object cds_AluguelFORMA_REC: TStringField
      FieldName = 'FORMA_REC'
    end
    object cds_AluguelNDOC_REC: TStringField
      FieldName = 'NDOC_REC'
    end
    object cds_AluguelCAIXA_REC: TStringField
      FieldName = 'CAIXA_REC'
    end
    object cds_AluguelPERIODO_REC: TDateField
      FieldName = 'PERIODO_REC'
    end
    object cds_AluguelPERIODO_REP: TDateField
      FieldName = 'PERIODO_REP'
    end
    object cds_AluguelFORMA_REP: TStringField
      FieldName = 'FORMA_REP'
    end
    object cds_AluguelNDOC_REP: TStringField
      FieldName = 'NDOC_REP'
    end
    object cds_AluguelCAIXA_REP: TStringField
      FieldName = 'CAIXA_REP'
    end
    object cds_AluguelVALOR_A_REC: TFloatField
      FieldName = 'VALOR_A_REC'
      DisplayFormat = ',#0.00'
    end
    object cds_AluguelVALOR_A_REP: TFloatField
      FieldName = 'VALOR_A_REP'
      DisplayFormat = ',#0.00'
    end
    object cds_AluguelTROCO_REC: TFloatField
      FieldName = 'TROCO_REC'
      DisplayFormat = ',#0.00'
    end
    object cds_AluguelTROCO_REP: TFloatField
      FieldName = 'TROCO_REP'
      DisplayFormat = ',#0.00'
    end
    object cds_AluguelDESCRICAO_REC: TStringField
      FieldName = 'DESCRICAO_REC'
      Size = 60
    end
    object cds_AluguelDESCRICAO_REP: TStringField
      FieldName = 'DESCRICAO_REP'
      Size = 60
    end
    object cds_AluguelVENCIMENTO_REP: TDateField
      FieldName = 'VENCIMENTO_REP'
    end
    object cds_AluguelSTATUS_PRO: TStringField
      FieldName = 'STATUS_PRO'
      Size = 10
    end
    object cds_AluguelPERIODO_REC1: TDateField
      FieldName = 'PERIODO_REC1'
    end
    object cds_AluguelPERIODO_REP1: TDateField
      FieldName = 'PERIODO_REP1'
    end
    object cds_AluguelTOTAL_DESPESAS: TFloatField
      FieldName = 'TOTAL_DESPESAS'
      DisplayFormat = ',#0.00'
    end
    object cds_AluguelTOTAL_RECEITAS: TFloatField
      FieldName = 'TOTAL_RECEITAS'
      DisplayFormat = ',#0.00'
    end
    object cds_AluguelCOD_IMALU_1: TIntegerField
      FieldName = 'COD_IMALU_1'
    end
    object cds_AluguelIMOVEL: TStringField
      FieldName = 'IMOVEL'
      Size = 15
    end
    object cds_AluguelTIPO: TStringField
      FieldName = 'TIPO'
    end
    object cds_AluguelCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
    end
    object cds_AluguelCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
    object cds_AluguelCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
    end
    object cds_AluguelCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
    end
    object cds_AluguelNR: TStringField
      FieldName = 'NR'
      Size = 5
    end
    object cds_AluguelCOMPL: TStringField
      FieldName = 'COMPL'
      Size = 15
    end
    object cds_AluguelMATRICULA: TStringField
      FieldName = 'MATRICULA'
      Size = 15
    end
    object cds_AluguelDATA_REGISTRO: TDateField
      FieldName = 'DATA_REGISTRO'
    end
    object cds_AluguelDETALHES: TStringField
      FieldName = 'DETALHES'
      Size = 150
    end
    object cds_AluguelVALOR_ALUGUEL: TFloatField
      FieldName = 'VALOR_ALUGUEL'
      DisplayFormat = ',#0.00'
    end
    object cds_AluguelVALOR_EXTENCO: TStringField
      FieldName = 'VALOR_EXTENCO'
      Size = 40
    end
    object cds_AluguelALUGADO: TStringField
      FieldName = 'ALUGADO'
      Size = 1
    end
    object cds_AluguelMESES: TStringField
      FieldName = 'MESES'
      Size = 2
    end
    object cds_AluguelDIAPGTO: TStringField
      FieldName = 'DIAPGTO'
      Size = 2
    end
    object cds_AluguelCARENCIA: TStringField
      FieldName = 'CARENCIA'
      Size = 2
    end
    object cds_AluguelDATA_AQUIZICAO: TStringField
      FieldName = 'DATA_AQUIZICAO'
      Size = 10
    end
    object cds_AluguelDATA_LOCACAO: TStringField
      FieldName = 'DATA_LOCACAO'
      Size = 10
    end
    object cds_AluguelDATA_VCONTRATO: TStringField
      FieldName = 'DATA_VCONTRATO'
      Size = 10
    end
    object cds_AluguelN_QUARTOS: TStringField
      FieldName = 'N_QUARTOS'
      Size = 5
    end
    object cds_AluguelN_SALAS: TStringField
      FieldName = 'N_SALAS'
      Size = 5
    end
    object cds_AluguelN_COZINHAS: TStringField
      FieldName = 'N_COZINHAS'
      Size = 5
    end
    object cds_AluguelN_GARAGENS: TStringField
      FieldName = 'N_GARAGENS'
      Size = 5
    end
    object cds_AluguelOBS: TStringField
      FieldName = 'OBS'
      Size = 200
    end
    object cds_AluguelCOMISSAO_IMOBILIARIA: TFloatField
      FieldName = 'COMISSAO_IMOBILIARIA'
    end
    object cds_AluguelCOD_IMOBILIARIA: TStringField
      FieldName = 'COD_IMOBILIARIA'
      Size = 10
    end
    object cds_AluguelCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
    end
    object cds_AluguelBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 35
    end
    object cds_AluguelCIDADE: TStringField
      FieldName = 'CIDADE'
      Size = 30
    end
    object cds_AluguelCEP: TStringField
      FieldName = 'CEP'
      Size = 9
    end
    object cds_AluguelUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object cds_AluguelRUA: TStringField
      FieldName = 'RUA'
      Size = 50
    end
    object cds_AluguelNOME_PROPRIETARIO: TStringField
      FieldName = 'NOME_PROPRIETARIO'
      Size = 60
    end
    object cds_AluguelNOME_INQUILINO: TStringField
      FieldName = 'NOME_INQUILINO'
      Size = 60
    end
    object cds_AluguelNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
  end
  object dsp_Aluguel: TDataSetProvider
    DataSet = sds_Aluguel
    UpdateMode = upWhereKeyOnly
    Left = 384
    Top = 304
  end
  object sds_Aluguel: TSQLDataSet
    CommandText = 
      'select ht.*, ima.*, cep.*, pro.NOME_PROPRIETARIO, '#13#10'inc.NOME_INQ' +
      'UILINO, fun.NOME '#13#10'from H_IMALU ht left outer join '#13#10'IMOVEL_ALUG' +
      'UEL ima on '#13#10'ima.cod_imalu=ht.cod_imalu '#13#10'left outer join CEP ce' +
      'p on '#13#10'cep.COD_CEP=ima.COD_ENDERECO '#13#10'left outer join PROPRIETAR' +
      'IOS pro on '#13#10'pro.COD_PROPRIETARIO = ima.COD_PROPRIETARIO '#13#10'left ' +
      'outer join INQUILINOS inc on '#13#10'inc.COD_INQUILINO = ima.COD_INQUI' +
      'LINO '#13#10'left outer join FUNCIONARIOS fun on '#13#10'fun.COD_FUNCIONARIO' +
      ' = ima.COD_FUNCIONARIO '#13#10'where COD_H_IMALU=:pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 312
    Top = 304
    object sds_AluguelCOD_H_IMALU: TIntegerField
      FieldName = 'COD_H_IMALU'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_AluguelCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelPARCELA: TStringField
      FieldName = 'PARCELA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_AluguelVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_AluguelTOTAL_ALUGUEL: TFloatField
      FieldName = 'TOTAL_ALUGUEL'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTOTAL_RECEBIDO: TFloatField
      FieldName = 'TOTAL_RECEBIDO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelREC_INQUILINO: TStringField
      FieldName = 'REC_INQUILINO'
      ProviderFlags = [pfInUpdate]
      Size = 3
    end
    object sds_AluguelDATA_REC: TDateField
      FieldName = 'DATA_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelREP_PROPRIETARIO: TStringField
      FieldName = 'REP_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
      Size = 3
    end
    object sds_AluguelDATA_REP: TDateField
      FieldName = 'DATA_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTOTAL_REPASSE: TFloatField
      FieldName = 'TOTAL_REPASSE'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelFORMA_REC: TStringField
      FieldName = 'FORMA_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelNDOC_REC: TStringField
      FieldName = 'NDOC_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelCAIXA_REC: TStringField
      FieldName = 'CAIXA_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelPERIODO_REC: TDateField
      FieldName = 'PERIODO_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelPERIODO_REP: TDateField
      FieldName = 'PERIODO_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelFORMA_REP: TStringField
      FieldName = 'FORMA_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelNDOC_REP: TStringField
      FieldName = 'NDOC_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelCAIXA_REP: TStringField
      FieldName = 'CAIXA_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelVALOR_A_REC: TFloatField
      FieldName = 'VALOR_A_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelVALOR_A_REP: TFloatField
      FieldName = 'VALOR_A_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTROCO_REC: TFloatField
      FieldName = 'TROCO_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTROCO_REP: TFloatField
      FieldName = 'TROCO_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelDESCRICAO_REC: TStringField
      FieldName = 'DESCRICAO_REC'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_AluguelDESCRICAO_REP: TStringField
      FieldName = 'DESCRICAO_REP'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_AluguelVENCIMENTO_REP: TDateField
      FieldName = 'VENCIMENTO_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelSTATUS_PRO: TStringField
      FieldName = 'STATUS_PRO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_AluguelPERIODO_REC1: TDateField
      FieldName = 'PERIODO_REC1'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelPERIODO_REP1: TDateField
      FieldName = 'PERIODO_REP1'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTOTAL_DESPESAS: TFloatField
      FieldName = 'TOTAL_DESPESAS'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTOTAL_RECEITAS: TFloatField
      FieldName = 'TOTAL_RECEITAS'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelCOD_IMALU_1: TIntegerField
      FieldName = 'COD_IMALU_1'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelIMOVEL: TStringField
      FieldName = 'IMOVEL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object sds_AluguelTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object sds_AluguelCOMPL: TStringField
      FieldName = 'COMPL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object sds_AluguelMATRICULA: TStringField
      FieldName = 'MATRICULA'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object sds_AluguelDATA_REGISTRO: TDateField
      FieldName = 'DATA_REGISTRO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelDETALHES: TStringField
      FieldName = 'DETALHES'
      ProviderFlags = [pfInUpdate]
      Size = 150
    end
    object sds_AluguelVALOR_ALUGUEL: TFloatField
      FieldName = 'VALOR_ALUGUEL'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelVALOR_EXTENCO: TStringField
      FieldName = 'VALOR_EXTENCO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object sds_AluguelALUGADO: TStringField
      FieldName = 'ALUGADO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_AluguelMESES: TStringField
      FieldName = 'MESES'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object sds_AluguelDIAPGTO: TStringField
      FieldName = 'DIAPGTO'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object sds_AluguelCARENCIA: TStringField
      FieldName = 'CARENCIA'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object sds_AluguelDATA_AQUIZICAO: TStringField
      FieldName = 'DATA_AQUIZICAO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_AluguelDATA_LOCACAO: TStringField
      FieldName = 'DATA_LOCACAO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_AluguelDATA_VCONTRATO: TStringField
      FieldName = 'DATA_VCONTRATO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_AluguelN_QUARTOS: TStringField
      FieldName = 'N_QUARTOS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object sds_AluguelN_SALAS: TStringField
      FieldName = 'N_SALAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object sds_AluguelN_COZINHAS: TStringField
      FieldName = 'N_COZINHAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object sds_AluguelN_GARAGENS: TStringField
      FieldName = 'N_GARAGENS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object sds_AluguelOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object sds_AluguelCOMISSAO_IMOBILIARIA: TFloatField
      FieldName = 'COMISSAO_IMOBILIARIA'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelCOD_IMOBILIARIA: TStringField
      FieldName = 'COD_IMOBILIARIA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_AluguelCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = []
      Size = 35
    end
    object sds_AluguelCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = []
      Size = 30
    end
    object sds_AluguelCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = []
      Size = 9
    end
    object sds_AluguelUF: TStringField
      FieldName = 'UF'
      ProviderFlags = []
      Size = 2
    end
    object sds_AluguelRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object sds_AluguelNOME_PROPRIETARIO: TStringField
      FieldName = 'NOME_PROPRIETARIO'
      ProviderFlags = []
      Size = 60
    end
    object sds_AluguelNOME_INQUILINO: TStringField
      FieldName = 'NOME_INQUILINO'
      ProviderFlags = []
      Size = 60
    end
    object sds_AluguelNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = []
      Size = 50
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = True
    Active = True
    Left = 464
    Top = 192
  end
end
